home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Graphisoft / US English / ArchiCAD / ArchiCAD 4.5-68K / ArchiCAD Library / 08 Doors & Windows / Window Macros / double_grille next >
Text File  |  1994-04-06  |  665b  |  37 lines
  1. ! double grille  /modified by VL 2/28/94/
  2. ! a=int. width, b=int. height,
  3. ! c=int. frame thickn., d=int. frame width,
  4. ! e=no. of horiz. panes, f=no. of vert. panes
  5.  
  6. if e-1<0.001 then 10
  7. if a-e*d<-0.001 or b-f*d<-0.001 then 100
  8. x=(a-(e-1)*d)/e
  9.   for v=1 to e-1
  10.     addx x*v+d*(v-1)     
  11.     block d,b,c
  12.     del 1
  13.   next v
  14. y=(b-(f-1)*d)/f
  15.   for v=1 to e
  16.     addx x*(v-1)+d*(v-1)
  17.       for w=1 to f-1
  18.         addy y*w+d*(w-1)
  19.         block x,d,c
  20.         del 1
  21.      next w
  22.   del 1
  23.   next v
  24. end
  25. 10:
  26. if e<1 then 20
  27. if b-f*d<-0.001 then 100
  28. y=(b-(f-1)*d)/f
  29.   for v=1 to f-1
  30.      addy y*v+d*(v-1)
  31.      block a,d,c
  32.      del 1
  33.   next v
  34. 20: end
  35. 100: print "to many panes"
  36. exit
  37.